Gyakorló feladat rendezésre:
Tömb feltöltése n darab véletlen számmal és elrendezése beszúró rendezéssel
program Rend1;
uses crt;
var i,n,x,j:integer;
a:array [1..100] of integer;
BEGIN
clrscr;
i:=1;
n:=
5
10
20
;
writeln('A tomb a rendezes elott');
while (i<=n) do begin
a[i]:=trunc(90*random+1);
i:=i+1;
writeln('A tomb ',i,'. eleme:',a[i]);
end;
i:=
;
while (i<=n)do begin
j:=i;
while (j>
) do begin
if (a[j]<a[j-1]) then begin
x:=a[j];
a[j]:=a[j-1];
a[j-1]:=x;
end;
else break;
j:=j-
;
end;
i:=i+
;
end;
writeln('');
writeln('Rendezés után');
i:=1;
while (i<=n) do begin
writeln('A tomb ',i,'. eleme:',a[i]);
i:=i+1;
end;
END.
